home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / docs / help / aguidehowwrite.lha / amigaguide_how_to_write / miscellaneous / ShowNodeExample-1.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-12-30  |  1.7 KB  |  90 lines
  1. /* Example 1 - Script For Showing an Amigaguide Node */
  2.  
  3. Down = 'a'x
  4.  
  5. NodeName.1   = 'ASCII Codes'
  6. Nodename.1.1 = 'Ascii'
  7. NodeName.2   = 'Line Feed Character'
  8. NodeName.2.1 = 'LineFeed'
  9. NodeName.3   = 'Commands'
  10. NodeName.3.1 = 'Commands'
  11. NodeName.4   = 'Commands - Global'
  12. NodeName.4.1 = 'Global'
  13. NodeName.5   = 'Commands - Local'
  14. NodeName.5.1 = 'Local'
  15. NodeName.6   = 'Commands - Text Attribute'
  16. Nodename.6.1 = 'Attribute'
  17. NodeName.7   = 'Lines - Logical'
  18. NodeName.7.1 = 'Logical'
  19. NodeName.8   = 'Lines - Physical'
  20. NodeName.8.1 = 'Physical'
  21. NodeName.9   = 'Nodes'
  22. NodeName.9.1 = 'Nodes'
  23.  
  24. /******************************
  25.  * Add the amigaguide.library *
  26.  ******************************/
  27.  
  28. IF ~EXISTS('Libs:amigaguide.library') THEN DO
  29.  
  30.   SAY 'Libs: directory does not contain the amigaguide.library file'
  31.   EXIT
  32.  
  33. END
  34.  
  35. IF ~SHOW('L','amigaguide.library') THEN DO
  36.  
  37.   CALL ADDLIB('amigaguide.library',0,-30)
  38.  
  39. END
  40.  
  41. /*****************
  42.  * Set file name *
  43.  *****************/
  44.  
  45. FileName = 'AGHTW:AGHTW_Part5'
  46.  
  47. /************************
  48.  * Check if file exists *
  49.  ************************/
  50.  
  51. IF ~EXISTS(FileName) THEN DO
  52.  
  53.   SAY Down||' 'FileName 'not found.'Down,
  54.   'Did you click on the button to make the assignment AGHTW:?'Down
  55.  
  56.   EXIT
  57.  
  58. END
  59.  
  60. /*****************
  61.  * Get Node Name * 
  62.  *****************/
  63.  
  64. DO FOREVER
  65.  
  66.   SAY Down'Press the number of the GLOSSARY item to read or Q to quit'Down
  67.  
  68.   DO Count = 1 TO 9 ; SAY '   'Count'. 'NodeName.Count ; END
  69.  
  70.   PULL Count
  71.  
  72.   IF UPPER(Count) = 'Q' THEN LEAVE
  73.  
  74.   IF Count < 1 | Count > 9 THEN DO
  75.  
  76.     SAY Down'Invalid number' count 'entered - try again'
  77.     ITERATE
  78.  
  79.   END
  80.  
  81.   /*****************
  82.    * Call Shownode *
  83.    *****************/
  84.  
  85.   CALL SHOWNODE(,FileName,NodeName.Count.1,,)
  86.   
  87. END
  88.  
  89. CALL REMLIB('amigaguide.library')
  90.